Admin_FriendSite.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_FriendSite.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

dim strFileName,sql,rs,ID
dim totalPut,CurrentPage,TotalPages,Action
Action=trim(request("Action"))
ID=Trim(Request("ID"))
strFileName="Admin_FriendSite.asp?"

currentPage = Cint(Netout.CheckStr(request.QueryString("page"),1))

if ID<>"" then
	if Action="Del" then
		conn.execute "Delete From NT_FriendSite Where ID=" & CLng(ID)
	end if
end if
%>
<html>
<head>
<title>友情链接管理</title>
<script LANGUAGE="javascript">
function Check() {
	if (document.AddLink.SiteName.value==""){
		alert("请输入网站名称！")
		document.AddLink.SiteName.focus()
		return false
	}
	if (document.AddLink.SiteUrl.value==""){
		alert("请输入网站地址！")
		document.AddLink.SiteUrl.focus()
		return false
	}
	if (document.AddLink.SiteUrl.value=="http://"){
		alert("请输入网站地址！")
		document.AddLink.SiteUrl.focus()
		return false
	}
}
function ConfirmDel(){
	if(confirm("确定要删除此友情链接站点吗？"))
		return true;
	else
		return false;
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead
Title="友 情 链 接 管 理"
Link="<a href='Admin_Images.asp' class='black'>管理图片</a> | <a href='Admin_FriendSite.asp?Action=Add' class='black'>添加链接</a>&nbsp;|&nbsp;<a href='Admin_FriendSite.asp' class='black'>所有链接</a>"
Behind.WriteHtmlTop Title,Link

if Action="Add" then
	call Add()
elseif Action="SaveAdd" then
	call SaveAdd()
elseif Action="Modify" then
	call Modify()
elseif Action="SaveModify" then
	call SaveModify()
else
	call main()
end if
if FoundErr=True then
	Behind.WriteErrMsg(ErrMsg)
	set Netout=nothing
end if
Behind.WriteHtmlEnd

sub main()
	dim rs
	sql="select * From NT_FriendSite order by id desc"
	With Behind
		.MaxPerPage	 = 18
		.TopPage	 = False
		.BottomPage	 = True
		.SqlRecord	 = sql
		.InitText	 = "个友情连接"
		.strFileName = strFileName
		.ShowRecord CurrentPage
	End With
end sub

sub showContent(MaxPerPage)
   	dim i
    i=0
%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
  <tr class="tdbg1"> 
    <td width="30" align="center" class="tdbg1"><b>ID</b></td>
    <td width="150" align="center" class="tdbg1"><b>网站名称</b></td>
    <td width="100" align="center" class="tdbg1"><b>网站LOGO</b></td>
    <td align="center" class="tdbg1"><b>网站说明</b></td>
    <td width="70" align="center" class="tdbg1"><b>操作</b></td>
  </tr>
  <%
	do while not rs.eof
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'"> 
		<td><%=rs("ID")%></td>
		<td><a href="<%=rs("SiteUrl")%>" target='blank' title="<%=rs("SiteUrl")%>" class='black'><%=rs("SiteName")%></a></td>
		<td align="center"> 
	    <%
		if rs("LogoUrl")<>"" and rs("LogoUrl")<>"http://" then
			response.write "<a href='" & rs("SiteUrl") & "' target='_blank' title='" & rs("LogoUrl") & "' class='black'><img src='" & rs("LogoUrl") & "' width='88' height='31' border='0'></a>"
		else
			response.write "&nbsp;"
		end if
		%>
</td>		<td><%=rs("SiteInfo")%></td>

    <td align="center"> 
      <%
	  response.write "<a href='Admin_FriendSite.asp?Action=Modify&ID=" & rs("ID") & "' class='black'>修改</a> | "
      response.write "<a href='Admin_FriendSite.asp?Action=Del&ID=" & rs("ID") & "' onclick='return ConfirmDel();' class='black'>删除</a>"
	  %> </td>
  </tr>
  <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
</table>
<%
end sub

sub Add()
%>
<form method="post" name="AddLink" onSubmit="return Check()" action="Admin_FriendSite.asp">
  <table border="0" cellpadding="2" cellspacing="1" align="center" width="100%" class="border">
    <tr class="title"> 
      <td colspan="2" align="center" class="tdbg1"><strong>添加友情链接</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25" valign="middle"><strong>网站名称：</strong></td>
      <td width="378" height="25"> <input name="SiteName" size="30"  maxlength="20" title="这里请输入网站名称，最多为20个汉字"> 
        <font color="#FF0000">&nbsp; </font></td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>网站地址：</strong></td>
      <td height="25"> <input name="SiteUrl" size="30"  maxlength="100" type="text" title="这里请输入网站地址，最多为50个字符，前面必须带http://"> 
      </td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>网站Logo：</strong></td>
      <td height="25"> <input name="LogoUrl" size="30"  maxlength="100" type="text" title="这里请输入网站LogoUrl地址，最多为50个字符，如果您在第一选项选择的是文字链接，这项就不必填">
        文字连接不用填此项        </td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>网站说明：</strong></td>
      <td height="25"> <input name="SiteInfo" size="30"  maxlength="100" type="text" title="这里请输入说明文字"> </td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveAdd"> 
        <input type="submit" value=" 确 定 " name="cmdOk"> &nbsp; <input type="reset" value=" 重 填 " name="cmdReset"> 
      </td>
    </tr>
  </table>
</form>
<%
end sub

sub Modify()
	if ID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定友情站点ID</li>"
		exit sub
	else
		ID=Clng(ID)
	end if
	dim sqlLink,rsLink
	sqlLink="select * From NT_FriendSite where ID=" & ID
	set rsLink=Server.CreateObject("Adodb.RecordSet")
	rsLink.open sqlLink,conn,1,3
	if rsLink.bof and rsLink.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
		rsLink.close
		set rsLink=nothing
		exit sub
	end if

%>
<form method="post" name="AddLink" onSubmit="return Check()" action="Admin_FriendSite.asp">
  <table border="0" cellpadding="2" cellspacing="1" align="center" width="100%" class="border">
    <tr class="title"> 
      <td colspan="2" align="center" class="tdbg1"><strong>修改友情链接信息</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="149" height="25" valign="middle"><strong>网站名称：</strong></td>
      <td width="381" height="25"> <input name="SiteName" title="这里请输入网站名称，最多为20个汉字" value="<%=rsLink("SiteName")%>" size="30"  maxlength="20"> 
        <font color="#FF0000">&nbsp; </font></td>
    </tr>
    <tr class="tdbg"> 
      <td width="149" height="25"><strong>网站地址：</strong></td>
      <td height="25"> <input name="SiteUrl" size="30"  maxlength="100" type="text"  value="<%=rsLink("SiteUrl")%>" title="这里请输入网站地址，最多为50个字符，前面必须带http://"> 
        </td>
    </tr>
    <tr class="tdbg"> 
      <td width="149" height="25"><strong>网站Logo：</strong></td>
      <td height="25"> <input name="LogoUrl" size="30"  maxlength="100" type="text"  value="<%=rsLink("LogoUrl")%>" title="这里请输入网站LogoUrl地址，最多为50个字符，如果您在第一选项选择的是文字链接，这项就不必填"> 
      </td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>网站说明：</strong></td>
      <td height="25"> <input name="SiteInfo" size="30"  maxlength="100" type="text" value="<%=rsLink("SiteInfo")%>" title="这里请输入说明文字"> </td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center"><input name="ID" type="hidden" id="ID" value="<%=rsLink("ID")%>"> 
        <input name="Action" type="hidden" id="Action" value="SaveModify"> <input type="submit" value=" 确 定 " name="cmdOk"> 
      </td>
    </tr>
  </table>
</form>
<%
	rsLink.close
	set rsLink=nothing
end sub

sub SaveAdd()
	dim LinkSiteName,LinkSiteUrl,LinkLogoUrl
	LinkSiteName=trim(request("SiteName"))
	LinkSiteUrl=trim(request("SiteUrl"))
	LinkLogoUrl=trim(request("LogoUrl"))
	LinkSiteInfo=trim(request("SiteInfo"))
	if LinkSiteName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>网站名称不能为空！</li>"
	end if
	if LinkSiteUrl="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>网站地址不能为空！</li>"
	end if
	if FoundErr<>True then
		dim sqlLink,rsLink
		sqlLink="select top 1 * From NT_FriendSite where SiteName='" & LinkSiteName & "' and SiteUrl='" & LinkSiteUrl & "'"
		set rsLink=Server.CreateObject("Adodb.RecordSet")
		rsLink.open sqlLink,conn,1,3
		if not (rsLink.bof and rsLink.eof) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>您要添加的网站已经存在！</li>"
		else
			rsLink.Addnew
			rsLink("SiteName")=LinkSiteName
			rsLink("SiteUrl")=LinkSiteUrl
			rsLink("LogoUrl")=LinkLogoUrl
			rsLink("SiteInfo")=LinkSiteInfo
			rsLink.update
			rsLink.close
			set rsLink=nothing
			Set Netout = Nothing
			Response.Redirect "Admin_FriendSite.asp"
		end if
		rsLink.close
		set rsLink=nothing
	end if
end sub

sub SaveModify()
	if ID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定友情站点ID</li>"
		exit sub
	else
		ID=Clng(ID)
	end if
	dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl
	LinkSiteName=trim(request("SiteName"))
	LinkSiteUrl=trim(request("SiteUrl"))
	LinkLogoUrl=trim(request("LogoUrl"))
	LinkSiteInfo=trim(request("SiteInfo"))
	if LinkSiteName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>网站名称不能为空！</li>"
	end if
	if LinkSiteUrl="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>网站地址不能为空！</li>"
	end if
	if FoundErr=True then
		exit sub
	end if
	dim sqlLink,rsLink
	sqlLink="select * From NT_FriendSite where ID=" & ID
	set rsLink=Server.CreateObject("Adodb.RecordSet")
	rsLink.open sqlLink,conn,1,3
	if rsLink.bof and rsLink.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
	else
		rsLink("SiteName")=LinkSiteName
		rsLink("SiteUrl")=LinkSiteUrl
		rsLink("LogoUrl")=LinkLogoUrl
		rsLink("SiteInfo")=LinkSiteInfo
		rsLink.update
		rsLink.close
		set rsLink=nothing
		Set Netout = Nothing
		Response.Redirect "Admin_FriendSite.asp"
	end if
	rsLink.close
	set rsLink=nothing
end sub
%>